home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 19 / CU Amiga Magazine's Super CD-ROM 19 (1998)(EMAP Images)(GB)[!][issue 1998-02].iso / CUCD / Sound / MrMPEG / Play.rexx < prev    next >
OS/2 REXX Batch file  |  1997-11-23  |  2KB  |  67 lines
  1. /* Play.rexx */
  2.  
  3. options results; address MrMPEG
  4.  
  5. MUIA_Disabled        = 0x80423661;    MUIA_Selected        = 0x8042654b
  6. MUIA_List_Entries    = 0x80421654;    MUIA_List_Active    = 0x8042391c
  7. MUIA_NoNotify        = 0x804237f9;    MUIA_Slider_Level    = 0x8042ae3a
  8. MUIV_List_Active_Down    = -5;        MUIV_List_Active_Top    = -2
  9.  
  10. getvar stopped
  11. if result = 1 then return
  12. check ID PLAY; playing = result
  13. if playing = 1 then do
  14.   do forever
  15.     check ID PLAY ATTRS MUIA_Disabled 1
  16.     setvar cont 0
  17.     list ID SLIST ATTRS MUIA_List_Entries
  18.     if result = 0 then call Insert.rexx
  19.     call PlayMain()
  20.     getvar cont
  21.     if result = 1 then iterate
  22.     check ID PLAY; playing = result
  23.     cycle ID REPT; repeat = result
  24.     check ID RAND; rand = result
  25.     if playing = 1 & repeat == 'Repeat All' then do
  26.       list ID SLIST ATTRS MUIA_List_Entries; max = result
  27.       if max = 0 then leave
  28.       list ID SLIST ATTRS MUIA_List_Active; current = result
  29.       list ID SLIST POS current; parse var result filename','dummy','dummy2
  30.       getvar current_song; temp_song = result
  31.       if filename = temp_song & max ~= 1 then do
  32.         if rand = 1 then do
  33.           say "Hello"
  34.           flag = 0
  35.           do while flag = 0
  36.             temp = random(0, max - 1, time('S'))
  37.             if temp ~= current then do
  38.               list ID SLIST ATTRS MUIA_List_Active temp
  39.               flag = 1
  40.             end
  41.           end /* of while flag */
  42.         end /* of if rand */
  43.         else if current ~= max - 1 then list ID SLIST ATTRS MUIA_List_Active MUIV_List_Active_Down
  44.         else list ID SLIST ATTRS MUIA_List_Active MUIV_List_Active_Top
  45.       end /* of if filename */
  46.       else do /* current song ~= selected song */
  47.         slider ID PROG ATTRS MUIA_Slider_Level 0
  48.         /* setvar current_time '00:00'
  49.         text ID CURNT LABEL "\033b\033r00:00" */
  50.       end
  51.       iterate
  52.     end /* of if playing */
  53.     else if playing = 1 & repeat == 'Repeat 1' then do
  54.       slider ID PROG ATTRS MUIA_Slider_Level 0
  55.       /* setvar current_time '00:00'
  56.       text ID CURNT LABEL "\033b\033r00:00" */
  57.       iterate
  58.     end
  59.     else leave    /* no repeat */
  60.   end /* of do forever */
  61. end /* of if playing */
  62. check ID PLAY ATTRS MUIA_Selected 0 MUIA_NoNotify 1
  63. call setclip('MrMPEG_FLAG', 1)
  64. address command 'Kill >NIL: MPEGA'
  65. setvar stopped 0
  66. return
  67.